home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr18 / alad163.zip / ALAD163.EXE / pak / DATAPAC.SCR < prev    next >
Text File  |  1993-06-01  |  738b  |  42 lines
  1. SCRIPT # DATAPAC Logon
  2. ECHO OFF
  3. HHH OFF
  4.  
  5. ;Configuration
  6.  
  7. SETSTRING 1 "###-####"      | Local DATAPAC number
  8. SETSTRING 2 "ATZ"           | Modem reset
  9. SETSTRING 3 "ATDT"          | Dial command
  10. SETSTRING 4 "########"      | 8-digit region code
  11.  
  12. ;
  13. ;USE "95700517" IF CALLING FROM EASTERN CANADA
  14. ;(AREA CODES: 416,418,506,514,519,613,705,709,807,819,902)
  15. ;
  16. ;USE "84400312" IF CALLING FROM WESTERN CANADA
  17. ;(AREA CODES: 204,306,403,604)
  18.  
  19.  
  20. SENDLINE "%2"
  21. WAITFOR "OK"
  22. :DIAL
  23. PAUSE 1
  24. SENDLINE "%3%1"
  25. PAUSE 1
  26. WAITFOR "^M"
  27. WAITFOR "^M"
  28. IF CURRENTLINEHAS "NO"
  29.   GOTO DIAL
  30. ENDIF
  31. IF CURRENTLINEHAS "BUSY"
  32.   GOTO DIAL
  33. ENDIF
  34. PAUSE 1
  35. SEND ".."
  36. PAUSE 1
  37. SEND "^M"
  38. WAITFOR "DATAPAC:"
  39. PAUSE 3
  40. SENDLINE "%4"
  41. ENDSCRIPT
  42.